home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesappl2.s < prev    next >
Text File  |  1989-04-06  |  2KB  |  61 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Application manager functions 2 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; appl_read
  18. ; appl_write
  19. ;-------------------------------------------------------------------------
  20.  
  21. _appl_read::
  22.           AControl  11,2,1,1
  23.           bra.s     appl_rw
  24. _appl_write::
  25.           AControl  12,2,1,1
  26. appl_rw:
  27.           .cargs    #4,.id.w,.len.w,.pbuf.l
  28.           lea       .id(sp),a1          ; -> intin
  29.           lea       .pbuf(sp),a0        ; -> adrin
  30.           ACall     RET2USER
  31.            
  32. ;-------------------------------------------------------------------------
  33. ; appl_find
  34. ;-------------------------------------------------------------------------
  35.  
  36. _appl_find::
  37.           .cargs    #4,.pname.l
  38.           AControl  13,0,1,1
  39.           lea       .pname(sp),a0       ; -> addrin
  40.           ACall     RET2USER
  41.           
  42. ;-------------------------------------------------------------------------
  43. ; appl_tplay
  44. ; appl_trecord
  45. ;-------------------------------------------------------------------------
  46.  
  47. _appl_tplay::
  48.           AControl  14,2,1,1
  49.           bra.s     appl_pr
  50. _appl_trecord::
  51.           AControl  15,1,1,1
  52. appl_pr:
  53.           .cargs    #4,.pbuf.l,.count.w,.speed.w
  54.           lea       .count(sp),a1       ; -> intin
  55.           lea       .pbuf(sp),a0        ; -> adrin
  56.           ACall     RET2USER
  57.           
  58. ;         end of code
  59.  
  60.  
  61.